library(quantmod)

symbols <- c("ADP", "GE", "KBH", "MO", "MMM", "MSFT")
from <- "2000-01-01"
to <- "2013-12-31"

# retrieve data and plot unadjusted close price
par (mfrow=c(2,3))
for (i in 1:length(symbols)) {
  getSymbols(symbols[i], from=from, auto.assign=TRUE)
  plot(Cl(get(symbols[i])), main=symbols[i], type="p", pch=20)
}

# adjust for splits and dividends
for (i in 1:length(symbols)) {
  assign (symbols[i], adjustOHLC(get(symbols[i]), 
                   adjust=c("split", "dividend"), 
                   use.Adjusted=FALSE,
                   symbol.name=symbols[i]))
}

# plot adjusted series
for (i in 1:length(symbols)) {
  plot(Cl(get(symbols[i])), main=paste0(symbols[i],".adjusted"), type="p", pch=20)
}
